﻿Imports APILocawebGatewayUI.AMEX
Imports APILocawebGatewayUI.REDECARD
Imports APILocawebGatewayUI.VISA

Partial Public Class FormularioCriadoEmExecucao
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Redecard
        Dim RedeCard = New RedeCard(Me, Bandeira.MASTERCARD, "001", RedecardUtilidades.FormataMoedaParaForm(1))
        Response.Write(RedeCard.RenderizarFormulario())
        Response.Write("<br>")
        'Amex
        Dim Amex = New Amex(Me, AmexUtilidades.FormatarPreco(100), "001")
        Response.Write(Amex.RenderizarFormulario())
        Response.Write("<br>")

        'VISA
        Dim Visa = New Visa(Me, VisaUtilidades.FormatarValor(100), VisaUtilidades.FormatarValorCampoFormatado(100), "02", "CPF: 121.780.917-17")
        Response.Write(Visa.RenderizarFormulario())
    End Sub

End Class